00010 FILES LETTER,BLOCK
    00020 DIM A$(250)
 00025 SCRATCH #2
  00030 FOR I = 1 TO 21
  00040 FOR J=1 TO 6
00050 K=(J-1)*26+I
00055 INPUT #1,A$(K)
   00060 NEXT J
 00070 NEXT I
 00080 FOR J=1 TO 6
00090 FOR I = 1 TO 21
  00100 K=(J-1)*26 +I
    00101 WRITE #2,A$(K)
   00110 NEXT I
 00120 NEXT J
 00125 IF END#1 THEN 130
00127 GOTO 30
00130 END
    